10520 IFTU(1)=0THENRI(1)=2
10525 IFVE=11ANDOB=5ANDTU(1)=1THENPRINT"OK.":TU(1)=0:RI(1)=2
10530 IFVE=12ANDOB=5ANDTU(1)=0THENPRINT"OK.":TU(1)=1:RI(1)=0
10550 RETURN